Option Explicit
Sub F_Sample011()
    'o̩һs@XӪɮסA|QF-009ޥոƨӨϥ
    Dim myFileName As String
    Dim myDataAr() As Variant
    Dim myStr      As String
    Dim i          As Long
    Dim j          As Long
    myFileName = "F_Book2.csv"				'xsɮצW
    On Error Resume Next
    Kill ThisWorkbook.Path & "\" & myFileName		'RPWɮ
    On Error GoTo 0
    ReDim myDataAr(1 To 10, 1 To 550)
    For i = 1 To 550
        For j = 1 To 10
            myDataAr(j, i) = CStr(j) & "C" & CStr(i) & ""
        Next
    Next
    Open ThisWorkbook.Path & "\" & myFileName For Output As #1
    For i = 1 To UBound(myDataAr, 1)
        myStr = ""
        For j = 1 To UBound(myDataAr, 2)
            myStr = myStr & CStr(myDataAr(i, j)) & ","
        Next
        myStr = Left(myStr, (Len(myStr) - 1))
        Print #1, myStr
    Next
    Close #1
End Sub
